      COMMON /PINCOM/ IPIND(MXCORB), INDGEN(MXCORB)
